home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / easybr / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-04  |  7.3 KB  |  246 lines
  1. VERSION 5.00
  2. Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "MSDXM.OCX"
  3. Begin VB.Form Form2 
  4.    Caption         =   "Music"
  5.    ClientHeight    =   5175
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   5220
  9.    LinkTopic       =   "Form2"
  10.    Picture         =   "Form2.frx":0000
  11.    ScaleHeight     =   5175
  12.    ScaleWidth      =   5220
  13.    StartUpPosition =   3  'Windows-Standard
  14.    Begin VB.CommandButton Command10 
  15.       Caption         =   "Back to Easy Browser 1.0"
  16.       Height          =   495
  17.       Left            =   1920
  18.       TabIndex        =   11
  19.       Top             =   4440
  20.       Width           =   1215
  21.    End
  22.    Begin VB.CommandButton Command9 
  23.       Caption         =   "Stop Playing!"
  24.       Height          =   495
  25.       Left            =   1680
  26.       TabIndex        =   10
  27.       Top             =   3600
  28.       Width           =   1695
  29.    End
  30.    Begin VB.CheckBox Check1 
  31.       Height          =   255
  32.       Left            =   1560
  33.       TabIndex        =   9
  34.       Top             =   3120
  35.       Width           =   255
  36.    End
  37.    Begin VB.CommandButton Command8 
  38.       Caption         =   "Will Smith"
  39.       Height          =   495
  40.       Left            =   2640
  41.       TabIndex        =   8
  42.       Top             =   2160
  43.       Width           =   2055
  44.    End
  45.    Begin VB.CommandButton Command7 
  46.       Caption         =   "Braveheart"
  47.       Height          =   495
  48.       Left            =   2640
  49.       TabIndex        =   7
  50.       Top             =   1560
  51.       Width           =   2055
  52.    End
  53.    Begin VB.CommandButton Command6 
  54.       Caption         =   "Golgotha"
  55.       Height          =   495
  56.       Left            =   2640
  57.       TabIndex        =   6
  58.       Top             =   960
  59.       Width           =   2055
  60.    End
  61.    Begin VB.CommandButton Command5 
  62.       Caption         =   "Instinct"
  63.       Height          =   495
  64.       Left            =   2640
  65.       TabIndex        =   5
  66.       Top             =   360
  67.       Width           =   2055
  68.    End
  69.    Begin VB.CommandButton Command4 
  70.       Caption         =   "Never Ever"
  71.       Height          =   495
  72.       Left            =   480
  73.       TabIndex        =   4
  74.       Top             =   2160
  75.       Width           =   1935
  76.    End
  77.    Begin VB.CommandButton Command3 
  78.       Caption         =   "Dungeon Keeper"
  79.       Height          =   495
  80.       Left            =   480
  81.       TabIndex        =   3
  82.       Top             =   1560
  83.       Width           =   1935
  84.    End
  85.    Begin VB.CommandButton Command2 
  86.       Caption         =   "Look at me"
  87.       Height          =   495
  88.       Left            =   480
  89.       TabIndex        =   2
  90.       Top             =   960
  91.       Width           =   1935
  92.    End
  93.    Begin VB.CommandButton Command1 
  94.       Caption         =   "I want you back"
  95.       Height          =   495
  96.       Left            =   480
  97.       TabIndex        =   1
  98.       Top             =   360
  99.       Width           =   1935
  100.    End
  101.    Begin VB.Label Label1 
  102.       BackStyle       =   0  'Transparent
  103.       Caption         =   "Play it many times!"
  104.       Height          =   255
  105.       Left            =   1920
  106.       TabIndex        =   12
  107.       Top             =   3120
  108.       Width           =   1455
  109.    End
  110.    Begin MediaPlayerCtl.MediaPlayer MediaPlayer1 
  111.       Height          =   615
  112.       Left            =   960
  113.       TabIndex        =   0
  114.       Top             =   4320
  115.       Visible         =   0   'False
  116.       Width           =   3495
  117.       AudioStream     =   -1
  118.       AutoSize        =   0   'False
  119.       AutoStart       =   -1  'True
  120.       AnimationAtStart=   -1  'True
  121.       AllowScan       =   -1  'True
  122.       AllowChangeDisplaySize=   -1  'True
  123.       AutoRewind      =   0   'False
  124.       Balance         =   0
  125.       BaseURL         =   ""
  126.       BufferingTime   =   5
  127.       CaptioningID    =   ""
  128.       ClickToPlay     =   -1  'True
  129.       CursorType      =   0
  130.       CurrentPosition =   -1
  131.       CurrentMarker   =   0
  132.       DefaultFrame    =   ""
  133.       DisplayBackColor=   0
  134.       DisplayForeColor=   16777215
  135.       DisplayMode     =   0
  136.       DisplaySize     =   4
  137.       Enabled         =   -1  'True
  138.       EnableContextMenu=   -1  'True
  139.       EnablePositionControls=   -1  'True
  140.       EnableFullScreenControls=   0   'False
  141.       EnableTracker   =   -1  'True
  142.       Filename        =   ""
  143.       InvokeURLs      =   -1  'True
  144.       Language        =   -1
  145.       Mute            =   0   'False
  146.       PlayCount       =   1
  147.       PreviewMode     =   0   'False
  148.       Rate            =   1
  149.       SAMILang        =   ""
  150.       SAMIStyle       =   ""
  151.       SAMIFileName    =   ""
  152.       SelectionStart  =   -1
  153.       SelectionEnd    =   -1
  154.       SendOpenStateChangeEvents=   -1  'True
  155.       SendWarningEvents=   -1  'True
  156.       SendErrorEvents =   -1  'True
  157.       SendKeyboardEvents=   0   'False
  158.       SendMouseClickEvents=   0   'False
  159.       SendMouseMoveEvents=   0   'False
  160.       SendPlayStateChangeEvents=   -1  'True
  161.       ShowCaptioning  =   0   'False
  162.       ShowControls    =   -1  'True
  163.       ShowAudioControls=   -1  'True
  164.       ShowDisplay     =   0   'False
  165.       ShowGotoBar     =   0   'False
  166.       ShowPositionControls=   -1  'True
  167.       ShowStatusBar   =   0   'False
  168.       ShowTracker     =   -1  'True
  169.       TransparentAtStart=   0   'False
  170.       VideoBorderWidth=   0
  171.       VideoBorderColor=   0
  172.       VideoBorder3D   =   0   'False
  173.       Volume          =   -600
  174.       WindowlessVideo =   0   'False
  175.    End
  176. Attribute VB_Name = "Form2"
  177. Attribute VB_GlobalNameSpace = False
  178. Attribute VB_Creatable = False
  179. Attribute VB_PredeclaredId = True
  180. Attribute VB_Exposed = False
  181. Private Sub Command1_Click()
  182. MediaPlayer1.FileName = "c:\easy browser 1.0\back.mp3"
  183. MediaPlayer1.Play
  184. If Check1.Value = Checked Then
  185. MediaPlayer1.PlayCount = 600
  186. End If
  187. End Sub
  188. Private Sub Command10_Click()
  189. Unload Me
  190. End Sub
  191. Private Sub Command2_Click()
  192. MediaPlayer1.FileName = "c:\easy browser 1.0\look.mp3"
  193. MediaPlayer1.Play
  194. If Check1.Value = Checked Then
  195. MediaPlayer1.PlayCount = 600
  196. End If
  197. End Sub
  198. Private Sub Command3_Click()
  199. MediaPlayer1.FileName = "c:\easy browser 1.0\keeper.mp3"
  200. MediaPlayer1.Play
  201. If Check1.Value = Checked Then
  202. MediaPlayer1.PlayCount = 600
  203. End If
  204. End Sub
  205. Private Sub Command4_Click()
  206. MediaPlayer1.FileName = "c:\easy browser 1.0\never.mp3"
  207. MediaPlayer1.Play
  208. If Check1.Value = Checked Then
  209. MediaPlayer1.PlayCount = 600
  210. End If
  211. End Sub
  212. Private Sub Command5_Click()
  213. MediaPlayer1.FileName = "c:\easy browser 1.0\instinct.wav"
  214. MediaPlayer1.Play
  215. If Check1.Value = Checked Then
  216. MediaPlayer1.PlayCount = 600
  217. End If
  218. End Sub
  219. Private Sub Command6_Click()
  220. MediaPlayer1.FileName = "c:\easy browser 1.0\golgotha.mp3"
  221. MediaPlayer1.Play
  222. If Check1.Value = Checked Then
  223. MediaPlayer1.PlayCount = 60
  224. End If
  225. End Sub
  226. Private Sub Command7_Click()
  227. MediaPlayer1.FileName = "c:\easy browser 1.0\braveheart.mp3"
  228. MediaPlayer1.Play
  229. If Check1.Value = Checked Then
  230. MediaPlayer1.PlayCount = 60
  231. End If
  232. End Sub
  233. Private Sub Command8_Click()
  234. MediaPlayer1.FileName = "c:\easy browser 1.0\will.mp3"
  235. MediaPlayer1.Play
  236. If Check1.Value = Checked Then
  237. MediaPlayer1.PlayCount = 60
  238. End If
  239. End Sub
  240. Private Sub Command9_Click()
  241. MediaPlayer1.Stop
  242. End Sub
  243. Private Sub Form_Load()
  244. Form2.Icon = LoadPicture("c:\easy browser 1.0\ico.ico")
  245. End Sub
  246.